Georgia Wildfire Prevention/Georgia Wildfire Prevention.iso/pc/media/dirs/BackUp/code.cst/00002_Script_video_code

Text File | 2002-10-15 | 1KB | 49 lines

property action,id,mysprite,mymem,spritenum,curr_mode

on new me
  mysprite=sprite(spritenum)
  mymem=mysprite.member
  curr_mode=0
end

on getpropertydescriptionlist me
  plist=[#action:[#comment:"What is this?",#format:#symbol,#default:#video,#range:[#fforward,#pause,#rewind,#play,#restart,#vidsprite]],#id:[#comment:"Video group",#format:#integer,#default:1,#range:[#min:1,#max:10]]]
  return plist
end

on mousedown me
  if action<>#vidsprite then sendallsprites(#vidaction,action,id)
end

on vidaction me,act,dx
  if action=#vidsprite and dx=id then
    case act of
      #fforward:mysprite.movierate=3
      #restart:mysprite.movietime=0
      #rewind:mysprite.movierate=(-3)
      #pause:mysprite.movierate=0
      #play:mysprite.movierate=1
    end case
    curr_mode=act
  end if
end

on mouseup me
  if action<>#vidsprite then sendallsprites(#release_vid,id)
end

on release_vid me,dx
  if id=dx and action=#vidsprite then
    etime=mymem.duration
    if mysprite.movietime<etime then
      case curr_mode of
        #fforward:mysprite.movierate=1
        #rewind:mysprite.movierate=1
      end case
    end if
  end if
end